home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / util / misc / ReqAttackUpd.lha / ReqAttackUpd / ReqOFF-Bonus / QuitReqOFF.e < prev    next >
Encoding:
Text File  |  1992-07-19  |  270 b   |  15 lines
  1. OPT 020
  2. MODULE 'exec/nodes','exec/ports'
  3.  
  4. DEF port:PTR TO mp,message[20]:ARRAY OF mn
  5.  
  6. PROC main()
  7.   Forbid()
  8.   IF (port:=FindPort('ReqOFF Warp Core'))
  9.     message.ln.name:=NT_DEATHMESSAGE
  10.     message.length:=SIZEOF mn
  11.     PutMsg(port,message)
  12.   ENDIF
  13.   Permit()
  14. ENDPROC
  15.